home *** CD-ROM | disk | FTP | other *** search
/ World Wide Web Learning / World Wide Web Learning.iso / demos / dcad / 2d_3dwin / demo.ex_ / demo.bin / 2DDEMO.DXR / 00035_BASICCAD.GIF.png < prev    next >
Portable Network Graphic  |  1994-10-31  |  8.2 KB  |  520x400  |  4-bit (13 colors)
   ocr: Notepad - INAIL.BSC File Edit Search Help RETRY1: INPUT ENTER THE DRIVE AND DIRECTORY FOR THE DRAWING FILES: DATS = "TNAIL.DAT" RETRY2: OPEN "I", 1, "TNAIL.DAT" >LAYER 9 PUINIXY [0,0] >POINTXY [8,10] >BOX DO WHILE EOF(1) <> 1 IF COUNT = 16 THEN GOSUB NEWPAGE COUNT = COUNT + - 1 X= ((COUNT-1) MOD 4)*2 +. 1 Y=( ((16 - COUNT) 1 - 4)*2.5 INPUT #1, A1$ A3$ = DR$ + A1$ RETRY3: PUINIXY [X-.25,Y+1] PUINIXY [X+.25,+1] >SYMBUL [A3$] >POINTXY [X-.5, Y+.4] >POINTXY [X+.5, Y+.4]